friction_evaluation Interface

interface
public function friction_evaluation(this, t, x, dxdt, nrm, svars) result(rst)

Arguments

Type IntentOptional Attributes Name
class(friction_model), intent(inout) :: this

The friction_model object.

real(kind=real64), intent(in) :: t

The current simulation time value.

real(kind=real64), intent(in) :: x

The current value of the relative position between the contacting bodies.

real(kind=real64), intent(in) :: dxdt

The current value of the relative velocity between the contacting bodies.

real(kind=real64), intent(in) :: nrm

The current normal force between the contacting bodies.

real(kind=real64), intent(in), optional, dimension(:) :: svars

An optional array containing any internal state variables the model may rely upon.

Return Value real(kind=real64)

The friction force.